home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / NCMCTCSUSER.cpt / NCMC-TCS user / card_2245.txt < prev    next >
Text File  |  1988-09-28  |  10KB  |  449 lines
  1. -- card: 2245 from stack: in
  2. -- bmap block id: 6687
  3. -- flags: 0000
  4. -- background id: 2777
  5. -- name: File Menu
  6. ----- HyperTalk script -----
  7. on idle
  8.   global port
  9.   put the time into field 4
  10.   if SPortHasChar(port) then
  11.     put empty into reslts
  12.     repeat 3
  13.       put recvUpTo(port,return,2,false,false) into newIn
  14.       put newIn after reslts
  15.     end repeat
  16.   end if
  17. end idle
  18.  
  19. on opencard
  20.   global lastday
  21.   put lastday into field "laston"
  22.   put the abbrev date into field "now"
  23. end opencard
  24.  
  25.  
  26. -- part 1 (button)
  27. -- low flags: 00
  28. -- high flags: 8004
  29. -- rect: left=66 top=109 right=131 bottom=166
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 1
  33. -- font id: 0
  34. -- text size: 12
  35. -- style flags: 0
  36. -- line height: 16
  37. -- part name: Newsletters
  38. ----- HyperTalk script -----
  39. on mouseUp
  40.   global port
  41.   sendSPort port,false,"b"&return
  42.   push card
  43.   go card "file section"
  44.   put "Newsletters from other clubs" into card field "where"
  45. end mouseUp
  46.  
  47.  
  48.  
  49. -- part 2 (button)
  50. -- low flags: 00
  51. -- high flags: 8004
  52. -- rect: left=66 top=133 right=155 bottom=166
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 0 / 0
  55. -- text alignment: 1
  56. -- font id: 0
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: Clip Art
  61. ----- HyperTalk script -----
  62. on mouseUp
  63.   global port
  64.   sendSPort port,false,"c"&return
  65.   push card
  66.   go card "file section"
  67.   put "Clip art" into card field "where"
  68. end mouseUp
  69.  
  70.  
  71.  
  72. -- part 3 (button)
  73. -- low flags: 00
  74. -- high flags: 8004
  75. -- rect: left=66 top=157 right=179 bottom=166
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 1
  79. -- font id: 0
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: Fun & Games
  84. ----- HyperTalk script -----
  85. on mouseUp
  86.   global port
  87.   sendSPort port,false,"f"&return
  88.   push card
  89.   go card "file section"
  90.   put "Fun & Games" into card field "where"
  91. end mouseUp
  92.  
  93.  
  94.  
  95. -- part 4 (button)
  96. -- low flags: 00
  97. -- high flags: 8004
  98. -- rect: left=66 top=181 right=203 bottom=166
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 1
  102. -- font id: 0
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: Hypercard
  107. ----- HyperTalk script -----
  108. on mouseUp
  109.   global port
  110.   sendSPort port,false,"h"&return
  111.   push card
  112.   go card "file section"
  113.   put "Hypercard Stacks" into card field "where"
  114. end mouseUp
  115.  
  116.  
  117.  
  118. -- part 5 (button)
  119. -- low flags: 00
  120. -- high flags: 8004
  121. -- rect: left=66 top=205 right=227 bottom=166
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 0 / 0
  124. -- text alignment: 1
  125. -- font id: 0
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: Music
  130. ----- HyperTalk script -----
  131. on mouseUp
  132.   --global port-- currently this feature is not implemented
  133.   --sendSPort port,false,"m"&return
  134.   --push card
  135.   --go card "music section"
  136.   --put "Music area" into card field "where"
  137.   answer "The music menus are not currently supported" with "Sorry"
  138. end mouseUp
  139.  
  140.  
  141.  
  142. -- part 7 (button)
  143. -- low flags: 00
  144. -- high flags: 8004
  145. -- rect: left=324 top=109 right=131 bottom=424
  146. -- title width / last selected line: 0
  147. -- icon id / first selected line: 0 / 0
  148. -- text alignment: 1
  149. -- font id: 0
  150. -- text size: 12
  151. -- style flags: 0
  152. -- line height: 16
  153. -- part name: System Files
  154. ----- HyperTalk script -----
  155. on mouseUp
  156.   global port
  157.   sendSPort port,false,"s"&return
  158.   push card
  159.   go card "file section"
  160.   put "System Software" into card field "where"
  161. end mouseUp
  162.  
  163.  
  164.  
  165. -- part 8 (button)
  166. -- low flags: 00
  167. -- high flags: 8004
  168. -- rect: left=325 top=133 right=155 bottom=425
  169. -- title width / last selected line: 0
  170. -- icon id / first selected line: 0 / 0
  171. -- text alignment: 1
  172. -- font id: 0
  173. -- text size: 12
  174. -- style flags: 0
  175. -- line height: 16
  176. -- part name: Templates
  177. ----- HyperTalk script -----
  178. on mouseUp
  179.   global port
  180.   sendSPort port,false,"t"&return
  181.   push card
  182.   go card "file section"
  183.   put "Templates" into card field "where"
  184. end mouseUp
  185.  
  186.  
  187.  
  188. -- part 9 (button)
  189. -- low flags: 00
  190. -- high flags: 8004
  191. -- rect: left=325 top=157 right=179 bottom=425
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 0 / 0
  194. -- text alignment: 1
  195. -- font id: 0
  196. -- text size: 12
  197. -- style flags: 0
  198. -- line height: 16
  199. -- part name: Fonts
  200. ----- HyperTalk script -----
  201. on mouseUp
  202.   global port
  203.   sendSPort port,false,"o"&return
  204.   push card
  205.   go card "file section"
  206.   put "Fonts" into card field "where"
  207. end mouseUp
  208.  
  209.  
  210.  
  211. -- part 10 (button)
  212. -- low flags: 00
  213. -- high flags: 8004
  214. -- rect: left=325 top=181 right=203 bottom=425
  215. -- title width / last selected line: 0
  216. -- icon id / first selected line: 0 / 0
  217. -- text alignment: 1
  218. -- font id: 0
  219. -- text size: 12
  220. -- style flags: 0
  221. -- line height: 16
  222. -- part name: Telecom.
  223. ----- HyperTalk script -----
  224. on mouseUp
  225.   global port
  226.   sendSPort port,false,"l"&return
  227.   push card
  228.   go card "file section"
  229.   put "Telecommunications" into card field "where"
  230. end mouseUp
  231.  
  232.  
  233.  
  234. -- part 11 (button)
  235. -- low flags: 00
  236. -- high flags: 8004
  237. -- rect: left=325 top=205 right=227 bottom=425
  238. -- title width / last selected line: 0
  239. -- icon id / first selected line: 0 / 0
  240. -- text alignment: 1
  241. -- font id: 0
  242. -- text size: 12
  243. -- style flags: 0
  244. -- line height: 16
  245. -- part name:  DA's
  246. ----- HyperTalk script -----
  247. on mouseUp
  248.   global port
  249.   sendSPort port,false,"d"&return
  250.   push card
  251.   go card "file section"
  252.   put "Desk Accessories" into card field "where"
  253. end mouseUp
  254.  
  255.  
  256.  
  257. -- part 12 (button)
  258. -- low flags: 00
  259. -- high flags: 8004
  260. -- rect: left=325 top=229 right=251 bottom=425
  261. -- title width / last selected line: 0
  262. -- icon id / first selected line: 0 / 0
  263. -- text alignment: 1
  264. -- font id: 0
  265. -- text size: 12
  266. -- style flags: 0
  267. -- line height: 16
  268. -- part name: Utilities
  269. ----- HyperTalk script -----
  270. on mouseUp
  271.   global port
  272.   sendSPort port,false,"*"&return
  273.   push card
  274.   go card "file section"
  275.   put "Volume/File Utilities" into card field "where"
  276. end mouseUp
  277.  
  278.  
  279.  
  280. -- part 13 (button)
  281. -- low flags: 00
  282. -- high flags: 8004
  283. -- rect: left=66 top=229 right=251 bottom=166
  284. -- title width / last selected line: 0
  285. -- icon id / first selected line: 0 / 0
  286. -- text alignment: 1
  287. -- font id: 0
  288. -- text size: 12
  289. -- style flags: 0
  290. -- line height: 16
  291. -- part name: Programming
  292. ----- HyperTalk script -----
  293. on mouseUp
  294.   global port
  295.   sendSPort port,false,"p"&return
  296.   push card
  297.   go card "file section"
  298.   put "Programming the Mac files!" into card field "where"
  299. end mouseUp
  300.  
  301.  
  302.  
  303. -- part 14 (button)
  304. -- low flags: 00
  305. -- high flags: 8004
  306. -- rect: left=198 top=109 right=131 bottom=298
  307. -- title width / last selected line: 0
  308. -- icon id / first selected line: 0 / 0
  309. -- text alignment: 1
  310. -- font id: 0
  311. -- text size: 12
  312. -- style flags: 0
  313. -- line height: 16
  314. -- part name: Upload File
  315. ----- HyperTalk script -----
  316. on mouseUp
  317.   global port
  318.   sendSPort port,false,"u"&return
  319.   push card
  320.   go card "uploads"
  321. end mouseUp
  322.  
  323.  
  324.  
  325. -- part 15 (button)
  326. -- low flags: 00
  327. -- high flags: 8004
  328. -- rect: left=198 top=229 right=251 bottom=298
  329. -- title width / last selected line: 0
  330. -- icon id / first selected line: 0 / 0
  331. -- text alignment: 1
  332. -- font id: 0
  333. -- text size: 12
  334. -- style flags: 0
  335. -- line height: 16
  336. -- part name: New Files
  337. ----- HyperTalk script -----
  338. on mouseUp
  339.   global port
  340.   sendSPort port,false,"n"&return
  341.   push card
  342.   go card "file section"
  343.   put "New and Latest Files" into card field "where"
  344.   hide card button "Main Menu"
  345. end mouseUp
  346.  
  347.  
  348.  
  349. -- part 16 (button)
  350. -- low flags: 00
  351. -- high flags: 8004
  352. -- rect: left=375 top=281 right=303 bottom=475
  353. -- title width / last selected line: 0
  354. -- icon id / first selected line: 0 / 0
  355. -- text alignment: 1
  356. -- font id: 0
  357. -- text size: 12
  358. -- style flags: 0
  359. -- line height: 16
  360. -- part name: Main Menu
  361. ----- HyperTalk script -----
  362. on mouseUp
  363.   global port
  364.   sendSPort port,false,"e"&return
  365.   go card "Main Menu"
  366. end mouseUp
  367.  
  368.  
  369.  
  370. -- part 17 (button)
  371. -- low flags: 00
  372. -- high flags: 8004
  373. -- rect: left=375 top=305 right=327 bottom=475
  374. -- title width / last selected line: 0
  375. -- icon id / first selected line: 0 / 0
  376. -- text alignment: 1
  377. -- font id: 0
  378. -- text size: 12
  379. -- style flags: 0
  380. -- line height: 16
  381. -- part name: Log off
  382. ----- HyperTalk script -----
  383. on mouseUp
  384.   global port
  385.   sendSPort port,false,"g"&return
  386.   answer "What'll it be?" with "Yes, bye" or "NO WAIT!!" or "Survey"
  387.   if it="Yes, bye" then
  388.     sendsPort port,false,"y"&return
  389.     go card 1
  390.   else if it="NO WAIT!!" then sendSPort port,false,"n"&return
  391.   else sendSPort port,false,"a"&return
  392.  
  393. end mouseUp
  394.  
  395.  
  396.  
  397. -- part 18 (button)
  398. -- low flags: 00
  399. -- high flags: 0000
  400. -- rect: left=54 top=31 right=68 bottom=90
  401. -- title width / last selected line: 0
  402. -- icon id / first selected line: 21060 / 21060
  403. -- text alignment: 1
  404. -- font id: 0
  405. -- text size: 12
  406. -- style flags: 0
  407. -- line height: 16
  408. -- part name: New Button
  409. ----- HyperTalk script -----
  410. on mouseUp
  411.   show card field "info"
  412. end mouseUp
  413.  
  414.  
  415.  
  416. -- part 19 (field)
  417. -- low flags: 81
  418. -- high flags: 0004
  419. -- rect: left=124 top=110 right=175 bottom=377
  420. -- title width / last selected line: 0
  421. -- icon id / first selected line: 0 / 0
  422. -- text alignment: 1
  423. -- font id: 3
  424. -- text size: 9
  425. -- style flags: 0
  426. -- line height: 12
  427. -- part name: info
  428. ----- HyperTalk script -----
  429. on mouseup
  430.   hide card field id 19
  431. end mouseup
  432.  
  433.  
  434. -- part contents for background part 4
  435. ----- text -----
  436. Sun, Sep 25, 1988
  437.  
  438. -- part contents for background part 5
  439. ----- text -----
  440. 10:16 PM
  441.  
  442. -- part contents for background part 3
  443. ----- text -----
  444. Sat, Sep 24, 1988, 12:06 AM
  445.  
  446. -- part contents for card part 19
  447. ----- text -----
  448. This is our file area, from this menu choose the area you would like to see the files of.  The new area has files that have been uploaded in the last month.  Currently, the upload feature is a little buggy, so be on the lookout for an upgrade to this stack.
  449.